
		AREA	|ARM$$code|,CODE,READONLY

		GET	OSLib:OSLib.Hdr.ScreenBlanker

		EXPORT	xscreenblanker_get_delay
		EXPORT	xscreenblanker_set_delay

xscreenblanker_get_delay
		ADDS	R12,R0,#0
		MOVNE	R0,#4
		SWINE	XScreenBlanker_Control
		STRVC	R1,[R12]
		MOVVC	R0,#0
		MOV	PC,R14

xscreenblanker_set_delay
		MOV	R1,R0
		MOV	R0,#3
		SWI	XScreenBlanker_Control
		MOVVC	R0,#0
		MOV	PC,R14

		END
